220 VTAB 19: HTAB 10: PRINT "<One moment, please...>";: VTAB 6: HTAB 9: FOR C = C1 TO C2: PRINT RIGHT$(" " + STR$(C),6)" ";: NEXT : PRINT
230 VTAB 8: FOR R = R1 TO R2: PRINT RIGHT$(" " + STR$(R),4)" I";: FOR C = C1 TO C2:X = X(C,R): GOSUB 120: NEXT : NEXT : GOSUB 710
240 REM ==================
250 REM Highlight Item
260 REM ==================
270 VTAB IR -R1 +8: HTAB (IC -C1) *8 +9: INVERSE :X = X(IC,IR): GOSUB 120: NORMAL
280 REM =================
290 REM Poll Keyboard
300 REM =================
310 ON PEEK( -16384) <128 GOTO 310:K = PEEK( -16368) -128: ON K = 13 GOTO 350: ON K = 8 GOTO 390: ON K = 21 GOTO 430: ON K = 10 GOTO 470: ON K = 11 GOTO 510: ON K = 113 OR K = 81 GOTO 630: ON K = 71 OR K = 103 GOTO 550: GOTO 310